home *** CD-ROM | disk | FTP | other *** search
/ Scena PL EXE / scenapl-1995-exe.iso / torba szopy / inne / bbbbs / bbbbs65.lha / rexx / bbsALPHA.rexx < prev    next >
OS/2 REXX Batch file  |  1992-07-15  |  1KB  |  60 lines
  1. /*
  2.       $VER: 5.3 bbsALPHA.rexx  15 Jul 1992 (15.7.92)
  3. copyright 1991-92 Richard Lee Stockton * FREELY DISTRIBUTABLE
  4. */
  5.  
  6. arcfile=''
  7. arcfile='Text/FileList' /* delete this line for no archive of filelist */
  8.  
  9. IF arcfile='' THEN SIGNAL GETOUT
  10.  
  11. bbspath=GETCLIP('BBS_path')
  12. libpath=GETCLIP('BBS_libpath')
  13.  
  14. PARSE ARG extension arccom
  15.  
  16. IF extension='' THEN
  17.   DO
  18.     extension='.lzh'
  19.     arccom='lharc >ram:junk -m m'
  20.   END
  21. ELSE extension='.'extension
  22. arcfile=arcfile||extension
  23.  
  24. CALL OPENPORT('bbsALPHA')
  25. CALL DELETE(libpath||arcfile)
  26. libpath2=libpath
  27. IF RIGHT(libpath,1)='/' THEN libpath2=LEFT(libpath,LENGTH(libpath)-1)
  28. ADDRESS COMMAND 'C:COPY' bbspath'Lists/Files.ALPHA' libpath2
  29. CALL CLOSEPORT('bbsALPHA')
  30. ADDRESS COMMAND 'C:CD' libpath2'0A'x||arccom arcfile 'Files.ALPHA'
  31. CALL DELETE('ram:junk')
  32. x=OPEN(f,bbspath'FileNotes/'arcfile,'R')
  33. IF x=0 THEN CALL GETOUT
  34. lynes.=''
  35. DO i=1
  36.   line=READLN(f)
  37.   IF EOF(f) THEN LEAVE i
  38.   lynes.i=line
  39. END
  40. lynes.0=i-1
  41. CALL CLOSE(f)
  42. filesize=WORD(STATEF(libpath||arcfile),2)
  43. lynes.2=OVERLAY(filesize 'bytes',lynes.2,41)
  44. lynes.3=OVERLAY(DATE() TIME('C')' ',lynes.3,41)
  45. x=OPEN(f,bbspath'FileNotes/'arcfile,'W')
  46. IF x=0 THEN CALL GETOUT
  47. DO i=1 TO lynes.0
  48.   CALL WRITELN(f,lynes.i)
  49. END
  50. CALL CLOSE(f)
  51. SAY arcfile 'has been updated.'||'0D'x
  52.  
  53. GETOUT:
  54. CALL CLOSEPORT('bbsALPHA')
  55. CALL SETCLIP('BBS_maint')
  56. EXIT;
  57. RETURN
  58.  
  59. /* end of bbsALPHA.rexx */
  60.